home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1389.dms / var1389.adf / flipping / flipping.amosSourceCode
AMOS Source Code  |  1993-04-04  |  58KB  |  672 lines
  1. Global MZ,LS,RS,LV
  2. GO
  3. Procedure GO
  4.    Screen Close 0
  5.    Screen Open 1,320,200,2,Lowres
  6.    Flash Off : Curs Off 
  7.    Colour 0,$445
  8.    Colour 1,$FF0
  9.    Colour Back Colour(0)
  10.    Cls 0
  11.    Pen 1
  12.    Locate 10,10
  13.    Print "Please wait..."
  14.    PART1
  15.    PART2
  16.    PART3
  17.    PART4
  18.    PART5
  19.    PART6
  20.    PART7
  21.    PART8
  22.    PART9
  23.    Erase 2
  24.    Screen Close 0
  25.    Screen Close 1
  26.    Run "ram:Over_to"
  27. End Proc
  28. Procedure PART1
  29.    Hide 
  30.    Load "df0:stuff/switch.abk",2
  31.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  32.    Double Buffer 
  33.    Curs Off : Flash Off 
  34.    Colour 0,$445
  35.    Colour Back Colour(0)
  36.    Wait Vbl 
  37.    Cls 0
  38.    Ink 1,0
  39.    Get Icon Palette 
  40.    Colour 17,$FF0
  41.    Colour 18,$F00
  42.    Colour 19,$FF0
  43.    Colour 0,$445
  44.    Reserve Zone 2
  45.    Set Zone 1,25,100 To 71,162
  46.    Limit Mouse 
  47.    X Mouse=170
  48.    Y Mouse=170
  49.    LSWOF
  50.    Text 90,90,"   Look at a light switch."
  51.    Text 90,100,"It has two states: On or Off."
  52.    Text 90,110,"It is a TWO STATE DEVICE."
  53.    Text 90,130,"When it is off we say it is"
  54.    Text 90,140,"in state 0. When it is on we"
  55.    Text 90,150,"say it is in state 1.  Think"
  56.    Text 90,160,"of the light as a 0 or 1 too."
  57.    BUTTON
  58.    Screen Show 
  59.    Show 
  60.    Do 
  61.       Repeat 
  62.          MZ=Mouse Zone
  63.       Until Mouse Click
  64.       If MZ=1
  65.          LSWON
  66.          MOUSEY
  67.          LSWOF
  68.       End If 
  69.       If MZ=2
  70.          Bell 
  71.          Exit 
  72.       End If 
  73.    Loop 
  74.    Screen Hide 
  75.    Screen Close 0
  76. End Proc
  77. Procedure MOUSEY
  78.    Repeat : MZ=Mouse Zone : Until Mouse Click
  79. End Proc
  80. Procedure LSWOF
  81.    Paste Icon 25,100,2
  82.    Paste Icon 150,8,3
  83. End Proc
  84. Procedure LSWON
  85.    Paste Icon 25,100,1
  86.    Paste Icon 150,8,4
  87. End Proc
  88. Procedure FIND
  89.    Do 
  90.       Home 
  91.       Cline 
  92.       '   Print X Mouse,Y Mouse
  93.       Print X Screen(X Mouse),Y Screen(Y Mouse)
  94.    Loop 
  95. End Proc
  96. Procedure RSWON
  97.    RS=1
  98.    Paste Icon 250,100,1
  99.    Paste Icon 150,8,4
  100. End Proc
  101. Procedure RSWOF
  102.    RS=0
  103.    Paste Icon 250,100,2
  104.    Paste Icon 150,8,3
  105. End Proc
  106. Procedure BUTTON
  107.    Pen 7 : Paper 1
  108.    Locate 18,23
  109.    Print Border$(Zone$("Continue",2),2)
  110. End Proc
  111. Procedure PART2
  112.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  113.    Double Buffer 
  114.    Curs Off : Flash Off 
  115.    Colour 0,$445
  116.    Colour Back Colour(0)
  117.    Wait Vbl 
  118.    Cls 0
  119.    Ink 1,0
  120.    Get Icon Palette 
  121.    Colour 17,$FF0
  122.    Colour 18,$F00
  123.    Colour 19,$FF0
  124.    Colour 0,$445
  125.    Reserve Zone 3
  126.    Set Zone 1,25,100 To 71,162
  127.    Set Zone 3,250,100 To 296,162
  128.    'Limit Mouse 160,151 To 193,212
  129.    Limit Mouse 
  130.    LSWOF
  131.    RSWOF
  132.    Text 84,100,"You may have a light"
  133.    Text 84,110,"on the stairs or in"
  134.    Text 84,120,"the hall which works"
  135.    Text 84,130,"with two switches."
  136.    Text 84,145,"If both switches are"
  137.    Text 84,155,"off then the light"
  138.    Text 84,165,"is off as 0 + 0 = 0 "
  139.    BUTTON
  140.    Limit Mouse 265,227 To 340,246
  141.    Screen Show 
  142.    Repeat 
  143.       MZ=Mouse Zone
  144.    Until Mouse Click
  145.    Bell 
  146.    Screen Hide 
  147.    Screen Close 0
  148. End Proc
  149. Procedure PART3
  150.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  151.    Double Buffer 
  152.    Curs Off : Flash Off 
  153.    Colour 0,$445
  154.    Colour Back Colour(0)
  155.    Wait Vbl 
  156.    Cls 0
  157.    Ink 1,0
  158.    Get Icon Palette 
  159. Colour 17,$FF0
  160. Colour 18,$F00
  161. Colour 19,$FF0
  162.    Colour 0,$445
  163.    Reserve Zone 3
  164.    Set Zone 1,25,100 To 71,162
  165.    Set Zone 3,250,100 To 296,162
  166.    Limit Mouse 160,151 To 193,212
  167.    LSWOF
  168.    RSWOF
  169.    BUTTON
  170.    Text 81,100,"If you switch on the"
  171.    Text 81,110,"left switch the light"
  172.    Text 81,120,"comes on as 1 + 0 = 1"
  173. Screen Show 
  174.    Repeat 
  175.       MZ=Mouse Zone
  176.    Until Mouse Click
  177.    LSWON
  178.    Wait 50 : Bell 65
  179.    Text 81,135,"Now do the same with"
  180.    Text 81,145,"the right switch and"
  181.    Text 81,155,"   we find that"
  182.    Text 81,165,"     0 + 1 = 1 "
  183.    LSWOF
  184.    Limit Mouse 380,150 To 421,210
  185.    Repeat 
  186.       MZ=Mouse Zone
  187.    Until Mouse Click
  188.    RSWON
  189.    Limit Mouse 265,227 To 340,246
  190.    Repeat 
  191.       MZ=Mouse Zone
  192.    Until Mouse Click
  193. Screen Hide 
  194.    Screen Close 0
  195. End Proc
  196. Procedure PART4
  197.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  198.    Double Buffer 
  199.    Curs Off : Flash Off 
  200.    Colour 0,$445
  201.    Colour Back Colour(0)
  202.    Wait Vbl 
  203.    Cls 0
  204.    Ink 1,0
  205.    Get Icon Palette 
  206. Colour 17,$FF0
  207. Colour 18,$F00
  208. Colour 19,$FF0
  209.    Colour 0,$445
  210.    Reserve Zone 3
  211.    Set Zone 1,25,100 To 71,162
  212.    Set Zone 3,250,100 To 296,162
  213.    Limit Mouse 160,151 To 193,212
  214.    LSWOF
  215.    RSWON
  216.    BUTTON
  217.    Text 87,100,"If one switch is on"
  218.    Text 87,110,"and you switch the"
  219.    Text 87,120,"other one on then..."
  220. Screen Show 
  221.    Repeat 
  222.       MZ=Mouse Zone
  223.    Until Mouse Click
  224.    LSWON
  225.    Paste Icon 150,8,3
  226.    Wait 25 : Bell 
  227.    Text 87,135,"the light goes off."
  228.    Text 87,145," This shows us that"
  229.    Text 87,155,"    1 + 1 = 0"
  230.    Text 78,173,"Hang on! That's wrong!"
  231.    Limit Mouse 265,227 To 340,246
  232.    Repeat 
  233.       MZ=Mouse Zone
  234.    Until Mouse Click
  235. Screen Hide 
  236.    Screen Close 0
  237. End Proc
  238. Procedure PART5
  239.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  240.    Reserve Zone 2
  241.    Limit Mouse 265,227 To 340,246
  242.    Get Icon Palette 
  243. Colour 17,$FF0
  244. Colour 18,$F00
  245. Colour 19,$FF0
  246.    Colour 0,$445
  247.    Curs Off : Flash Off 
  248.    Colour Back Colour(0)
  249.    Wait Vbl 
  250.    Cls 0
  251.    BUTTON
  252.    Home 
  253.    Ink 1,0
  254.    Text 5,7,"  We know that 1 + 1 is really 2. "
  255.    Text 5,17,"We now know that light switches are"
  256.    Text 5,27,"    no good at doing arithmetic!"
  257.    Text 5,45,"Remember that we are dealing with two"
  258.    Text 5,55,"  states that can only be 0 or 1."
  259.    Text 5,70,"2 is going to be too big.  Usually we"
  260.    Text 5,80,"use 0 1 2 3 4 5 6 7 8 9.  To count on"
  261.    Text 5,90,"from 9 we have to carry into the next"
  262.    Text 5,100,"column and start from 0 units again."
  263.    Text 5,110,"We do the same in two state sums...."
  264.    Text 5,125,"so...   9     likewise with       1  "
  265.    Text 5,135,"        1 +   our two state       1 +"
  266.    Text 5,145,"      ---   (BINARY) Numbers... ---  "
  267.    Text 5,155,"       10                        10  "
  268.    Text 5,169,"  The 1st = ten and the 2nd = two"
  269. Screen Show 
  270.    Repeat 
  271.    Until Mouse Click
  272. Screen Hide 
  273.    Screen Close 0
  274. End Proc
  275. Procedure PART7
  276.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  277.    Double Buffer 
  278.    Reserve Zone 2
  279.    Curs Off : Flash Off 
  280.    Colour 0,$445
  281.    Colour Back Colour(0)
  282.    Wait Vbl 
  283.    Cls 0
  284.    Volume 15
  285.    Get Icon Palette 
  286.    Colour 17,$FF0
  287.    Colour 18,$F00
  288.    Colour 19,$FF0
  289.    Colour 0,$8445 Extension_0_4000 
  290.    Pen Extension_0_203E Extension_0_1000 Extension_0_1806 Extension_0_3C54 Extension_0_11DC Extension_0_013E Extension_0_0180 Stop Illegal_Constant_0020
  291.    Locate Extension_0_00CE Extension_0_00F8 #
  292.    Print "Waste"
  293.    Ink 6,32768 Extension_0_4000 
  294.    Text Extension_0_A03E Extension_0_D000 Extension_0_1832 Extension_0_145C Extension_0_3A3E Extension_0_0D00 Extension_0_0216 Not Extension_0_00C6 Illegal_Constant_0035 Extension_0_4099 Extension_0_718E Extension_0_791A $
  295.    Paste Icon Illegal_Constant_003F100,5
  296.    Text 105,32866 Extension_0_C05C Extension_0_2026 Extension_0_1007 Extension_0_5B54 Extension_0_4554 Extension_0_4720 Extension_0_3F00 Extension_0_0180 
  297.    B�TLOJ$
  298.    LV#=0
  299.    Limit Mouse 265,227 Extension_0_8094 Extension_0_C03E Extension_0_E000 Extension_0_D154 Extension_0_285C Extension_0_6C3E Extension_0_0E00 Extension_0_3DF6 Extension_0_0380 
  300.    Home Extension_0_0714 Extension_0_1372 Call Extension_0_01E8 Extension_0_01F5 Illegal_Constant_004A Extension_0_13DB Illegal_Constant_0038
  301.    Ink 1,0
  302.    Text 5,-2147434489 Extension_0_E05C Extension_0_5026 Extension_0_6821 Extension_0_4365 Extension_0_2A6E Extension_0_6665 Extension_0_5AA0 Extension_0_4B2F Extension_0_208D Extension_0_61BB Extension_0_65C8 Extension_0_613C Extension_0_7474 Extension_0_6177 Extension_0_2064 Extension_0_6F71 Extension_0_2061 Extension_0_6E79 Extension_0_4F4E Extension_0_4500 
  303.    Text 5,17 Extension_0_805C Extension_0_C026 Extension_0_6022 Extension_0_2468 Extension_0_B974 Extension_0_4C69 Rename Extension_0_7664 Extension_0_6AE5 Extension_0_6EE0 Extension_0_728F Extension_0_2791 Extension_0_27EB Extension_0_53FD Extension_0_D39B Extension_0_67DA Extension_0_0079 Extension_0_676C Extension_0_7C60 Extension_0_6C2C Extension_0_0201 
  304.    Text Extension_0_013F Extension_0_0181 Illegal_Constant_0044Illegal_Constant_003DIllegal_Constant_002FIllegal_Constant_0019Illegal_Constant_0038 Extension_0_005E Illegal_Constant_0027Illegal_Constant_0023 Extension_0_4E6E Extension_0_7723 Extension_0_E120 Extension_0_1354 Extension_0_A154 Extension_0_5520 Extension_0_B820 Extension_0_BF61 Extension_0_8820 Extension_0_D165 Extension_0_D9F3 Extension_0_A3A9 Extension_0_CE03 Extension_0_9D15 Extension_0_4FB8 Extension_0_0923 Extension_0_F7C3 Extension_0_9B51 
  305.    Text Extension_0_B685 Extension_0_7B2C Extension_0_536B Extension_0_1E83 Extension_0_14D4 Extension_0_0597 Extension_0_02FB Extension_0_03F9 Extension_0_0391 Extension_0_0389 Extension_0_5327 Extension_0_4162 Extension_0_45D7 Extension_0_311A Extension_0_6A76 Extension_0_F376 Extension_0_606D Extension_0_096A Extension_0_7521 Extension_0_6C69 Extension_0_E121 Extension_0_2A68 Extension_0_F869 Extension_0_27A1 Extension_0_8B36 Extension_0_BD55 Extension_0_5D79 Extension_0_A109 Extension_0_4B83 
  306.    Text Extension_0_64FC Extension_0_5661 Extension_0_D974 Extension_0_5DF7 Extension_0_FA6A Extension_0_8BEA Extension_0_BBAA Extension_0_EF97 Extension_0_B1C2 Extension_0_E88C Extension_0_CE9C Extension_0_83F5 Extension_0_CC55 Extension_0_8EFE Extension_0_C2A4 Extension_0_98C2 Extension_0_8B32 Extension_0_12CC Extension_0_0EB8 Extension_0_75CE Extension_0_758F Extension_0_74DE Extension_0_3EC8 Extension_0_97B6 Extension_0_E28F Extension_0_2686 Extension_0_49AF Extension_0_905A 
  307.    Text Extension_0_D821 Extension_0_BC1A Extension_0_6E0E Extension_0_F95E Extension_0_0CBF Extension_0_86C1 Extension_0_4560 Extension_0_22AF Extension_0_1F6E Extension_0_985D Extension_0_483E Extension_0_8709 Extension_0_4042 Extension_0_C1F3 Extension_0_372A Extension_0_DE41 Extension_0_5273 Extension_0_C1B8 Extension_0_21AB Extension_0_DECD Extension_0_6790 Extension_0_FDAC Extension_0_74CF Extension_0_39CB Extension_0_7AB3 Extension_0_2691 Extension_0_62DD Extension_0_86AB 
  308.    Text Extension_0_C10A Extension_0_A1A6 Extension_0_B1F8 Extension_0_5877 Extension_0_FC2A Extension_0_361E Extension_0_2D4E Extension_0_1EDD Extension_0_9967 Extension_0_C480 Extension_0_D538 Extension_0_BF57 Extension_0_7804 Extension_0_95B8 Extension_0_5F0F Extension_0_8873 Extension_0_CEFF Extension_0_12AE Extension_0_17C2 Extension_0_D6C5 Extension_0_A3CC Rainbow Del Extension_0_3E82 Extension_0_E7B7 Extension_0_AF2B Extension_0_DC59 Iff Anim Extension_0_689B 
  309.    Text Extension_0_0CE2 Extension_0_0E62 Text LengthLogic Extension_0_01FA Extension_0_805E Extension_0_40A4 Extension_0_2075 Extension_0_9033 Extension_0_C800 Extension_0_C370 Extension_0_3773 Extension_0_4B75 Extension_0_13A1 Extension_0_8EA9 Extension_0_5243 Extension_0_78D5 Extension_0_4EAC Extension_0_3EC7 Extension_0_EDB2 Extension_0_4B84 Extension_0_4D82 Extension_0_6298 Extension_0_E19E Extension_0_A753 Extension_0_880A Extension_0_D70D 
  310.    Every Extension_0_28BB Extension_0_94C3 Extension_0_CE65 Extension_0_28B6 Extension_0_179A Extension_0_F1F2 Extension_0_037E Extension_0_6539 Extension_0_E48A Extension_0_2B95 Extension_0_E077 
  311. Screen Show Extension_0_B01A 
  312.    Do Extension_0_2C0E 
  313.       ã€±B�^4����F�C3�G��#��
  314. W��6A<�U�U&��ܤRXKՋ*�{�#
  315.       For Extension_0_CF75 Extension_0_26F4 Extension_0_97DC Extension_0_A472 Extension_0_584B Extension_0_D58B Extension_0_2AD7 Extension_0_137B Extension_0_16EB Extension_0_8D60 Extension_0_4595 Extension_0_E74D Extension_0_3164 
  316.          Exit If Extension_0_CA2A Extension_0_DA1B Extension_0_157B Extension_0_63B0 Extension_0_C401 Extension_0_1E0E Extension_0_02E8 Extension_0_808D Extension_0_C04E 
  317.          If Extension_0_9035 Extension_0_4804 Extension_0_EE3C Extension_0_DC02 Extension_0_A4A5 Extension_0_74BE Extension_0_FEC0 Extension_0_4524 Extension_0_6456 Extension_0_6C5A Extension_0_F892 Extension_0_27B2 Extension_0_924F Extension_0_BB30 Extension_0_5BA0 Extension_0_96CD Extension_0_CB43 Extension_0_ACF2 Extension_0_4E47 Extension_0_7EED Extension_0_74F1 Extension_0_8A9A Extension_0_4D73 Extension_0_EF7C Extension_0_BE1B Extension_0_579A Extension_0_5BD2 Extension_0_164B Extension_0_8B59 Extension_0_C3D3 Extension_0_2DF9 Extension_0_31EE Extension_0_99F8 Extension_0_C405 Extension_0_265B Extension_0_9317 Extension_0_DBF8 Extension_0_A787 Extension_0_55C4 Extension_0_F916 Extension_0_E7DD Extension_0_2F91 Extension_0_B8C1 Extension_0_9A93 Extension_0_2F58 
  318.          Text Extension_0_1AA2 Extension_0_9B32 Extension_0_479B Extension_0_1FCC Extension_0_EF06 Extension_0_AB71 Extension_0_F470 Extension_0_B435 Extension_0_166F Extension_0_FBD2 Extension_0_CD63 Extension_0_2BA2 Extension_0_A472 Extension_0_FFF9 
  319.              ï¿½ï¿½7IїJG���1K�綰_� J��#1Q���
  320. �QE���IW��M��H�A� L
  321. $
  322.          Read Extension_0_8A51 Extension_0_45F6 Extension_0_E095 Extension_0_6977 Extension_0_B8C6 Extension_0_4DF9 Extension_0_E668 Extension_0_D10D Extension_0_419F Extension_0_0C4C 
  323.          � �:P�Q
  324. P�}�<
  325. \<PNGȥ%��(=<V�Y?B��J�
  326.  
  327. P�֒�K��NLKKZ���
  328. Jգ'�6#
  329.          Repeat Extension_0_C53C 
  330.          Until Extension_0_3C70 Extension_0_4E67 Extension_0_C8A5 Extension_0_25AE Extension_0_B428 Extension_0_3D3C Extension_0_1A56 Extension_0_D679 Extension_0_3F62 Extension_0_8C98 Extension_0_4AC8 
  331.          Ink Extension_0_A51A Extension_0_D692 Extension_0_B74B Extension_0_B7F0 Extension_0_6E6C Extension_0_6B6B Extension_0_5A8C Extension_0_9DCE 
  332.          Text Extension_0_D5A3 Extension_0_27C1 Extension_0_36F8 Extension_0_66CC Extension_0_8D66 Extension_0_429B Extension_0_A3D3 Extension_0_D1BA Extension_0_04B4 Extension_0_EBBB Extension_0_1A2A Extension_0_BB0F Extension_0_7785 Extension_0_62C3 
  333.          Ink Extension_0_9F9E Extension_0_58F0 Extension_0_646E Extension_0_9228 Extension_0_D954 Extension_0_25BD Extension_0_32BD Extension_0_09DF 
  334.       Next Extension_0_0CF4 Extension_0_0E77 Extension_0_82EC Extension_0_2EB6 Extension_0_60D9 
  335.       Wait Extension_0_50DB Extension_0_D83F Extension_0_6C67 Extension_0_CE05 
  336.       Exit If Extension_0_3946 Extension_0_FB4D Extension_0_03D0 Extension_0_6C9E Extension_0_FFD6 Extension_0_0060 Extension_0_0067 Extension_0_8017 Extension_0_C019 
  337.       ï¿½[�V>�$
  338.       Data Extension_0_963B Extension_0_4F03 Extension_0_65EE Extension_0_5E1C Extension_0_29DE Extension_0_34F0 Extension_0_063E Extension_0_0520 Extension_0_83A0 Extension_0_C34F Extension_0_E0D0 Extension_0_1072 Extension_0_8845 Extension_0_C40C Extension_0_E29C Extension_0_AF5B Extension_0_77B0 Extension_0_DC41 Extension_0_EEF2 Extension_0_174D Extension_0_0BA7 Extension_0_065D Extension_0_03EA Extension_0_01EF Extension_0_0186 , Extension_0_00AB Extension_0_8047 Extension_0_C022 Extension_0_201E Extension_0_B09E Extension_0_385F Extension_0_243E Extension_0_F200 Extension_0_9B96 Extension_0_C3DC Extension_0_E27E Extension_0_9720 Extension_0_C838 Extension_0_E594 Extension_0_17DA Extension_0_88F2 Extension_0_C40F Extension_0_2619 Extension_0_8F1F Extension_0_C891 Extension_0_E4FD Extension_0_966C 
  339.       For Extension_0_6BBD Extension_0_5248 Extension_0_2B62 Extension_0_5293 Extension_0_C5FA Extension_0_055A Extension_0_07B2 Extension_0_0138 Extension_0_0109 Extension_0_806D Extension_0_402A Extension_0_60F3 Extension_0_100B 
  340.          Exit If Extension_0_C607 Extension_0_1EEC Extension_0_9181 Extension_0_3437 Extension_0_D343 Extension_0_BE4F Extension_0_7709 Extension_0_249C Extension_0_B2CD 
  341.          If Extension_0_2496 Extension_0_F2C4 Extension_0_0B64 Extension_0_72B2 Extension_0_F879 Extension_0_031A Extension_0_009E Extension_0_81CD Extension_0_C2FB Extension_0_FD25 Extension_0_9030 Extension_0_D805 Extension_0_E465 Extension_0_925D Extension_0_DB3D Extension_0_E780 Extension_0_15A4 Extension_0_9ABC Extension_0_C4AE Extension_0_E658 Extension_0_9121 Extension_0_5926 Extension_0_E435 Extension_0_F75D Extension_0_9836 Extension_0_DDB5 Extension_0_FA44 Extension_0_1736 Extension_0_9FC7 Extension_0_CC02 Extension_0_619A Extension_0_10D2 Extension_0_B800 Extension_0_CC11 Extension_0_221B Extension_0_9113 Extension_0_C7E8 Extension_0_2411 Extension_0_1605 Extension_0_9937 Extension_0_16DC Extension_0_6328 Extension_0_F402 Extension_0_7897 Extension_0_2458 
  342.          Text Extension_0_B622 Extension_0_4AEE Extension_0_25B9 Extension_0_CDBD Extension_0_4B79 Extension_0_6777 Extension_0_32CF Extension_0_097D Extension_0_FD97 Extension_0_458A Extension_0_2303 Extension_0_91AE Choice Extension_0_2CED 
  343.          2�A�!X�>ؖ|WZ�߃N,(X[��X���W
  344. ΄��U������R� I}]{�\
  345. $
  346.          Read Extension_0_CE84 Extension_0_E5C3 Extension_0_75E0 Extension_0_F6F0 Extension_0_C4F4 Extension_0_E652 Extension_0_EF20 Extension_0_497D Extension_0_5D7B Extension_0_B65C 
  347.          ï¿½DV�]]�H
  348. PS"��
  349. \F�A��+���Ē�J�ʖK�2Q�=
  350.  
  351. P\�&\�&Z3%H��YU%Y
  352. J2�I����!Y���F���RO��LH'԰
  353.  
  354. PJ�?|E�7م~>Y�UFםHо>�5U #
  355.          Repeat Extension_0_B892 
  356.          Until Extension_0_4687 Extension_0_41DF Extension_0_D52B Extension_0_9F89 Extension_0_D7C4 Extension_0_92A2 Extension_0_6A93 Extension_0_CA96 Extension_0_6BCC Extension_0_3251 Extension_0_AB3D 
  357.          Ink Extension_0_5CD1 Extension_0_265C Extension_0_9526 Extension_0_5A33 Extension_0_2548 Extension_0_939D Extension_0_5955 Extension_0_2579 
  358.          Text Extension_0_32CB Extension_0_1969 Extension_0_8694 Extension_0_ACAE Extension_0_2179 Extension_0_97A9 Extension_0_C866 Extension_0_1EED Extension_0_F90E Extension_0_C952 Extension_0_6FBB Extension_0_BE4C Extension_0_6827 Extension_0_D4B0 
  359.          Ink Extension_0_6AE6 Extension_0_3F7C Extension_0_6588 Extension_0_3705 Extension_0_19D9 Extension_0_857E Extension_0_3E59 Extension_0_A175 
  360.       Next Extension_0_D79D Extension_0_68D0 Extension_0_BE3E Extension_0_B435 Extension_0_750B 
  361.       ����,�J�&YO$'�BI-�W"3=��VQ$���JC�-�����US;ԝ͠�]L}&�D�M���WK;YU'����OV���@��R�?R���MKN4��M|+ك~�C)1���T�.5� �J�-��UΨ�"L�OC,{�]{�;�
  362. �D
  363. �˓NH?$���V$
  364.       Data Extension_0_9E76 Extension_0_5124 Extension_0_A8FC Extension_0_D415 Extension_0_6A43 Extension_0_B72D Extension_0_D9E1 Extension_0_EF98 Extension_0_F69C Extension_0_7553 Extension_0_3BD4 Extension_0_9D10 Extension_0_CDA0 Extension_0_995D Extension_0_4C7D Extension_0_2608 Extension_0_9364 Extension_0_B66D Extension_0_DB08 Extension_0_EDC2 Extension_0_776B Extension_0_3B79 Extension_0_1E55 Extension_0_0F27 Extension_0_84AA Extension_0_DDD6 Extension_0_6F56 Extension_0_B1F3 Extension_0_D840 Extension_0_ECED Extension_0_72EF Extension_0_3F52 Extension_0_9DA3 Extension_0_D24D Extension_0_6B4E Extension_0_34EC Extension_0_9EE6 Extension_0_4D7C Extension_0_2B16 Extension_0_1505 Extension_0_0FD9 Extension_0_837E Extension_0_CE06 Extension_0_6329 Extension_0_31A5 Extension_0_98DC Extension_0_54A6 Extension_0_2E35 
  365.       Restore Extension_0_930B 
  366.       Exit If Extension_0_13E1 Extension_0_751D Extension_0_CEA8 Extension_0_8E22 Extension_0_6C84 Extension_0_4F43 Extension_0_2C7B Extension_0_925D Extension_0_7B12 
  367.    Loop Extension_0_3B8B 
  368.  Screen Hide Extension_0_1644 
  369.    Screen Close Extension_0_991C Extension_0_CB93 Extension_0_6E48 Extension_0_3F24 
  370. End Proc Extension_0_9892 
  371. Procedure CHECK
  372.    MK=Mouse Click
  373.    If MK>0 Then LV=1 Else Every On 
  374. End Proc
  375. Procedure PART6
  376.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  377.    Double Buffer 
  378.    Curs Off : Flash Off 
  379.    Get Icon Palette 
  380. Colour 17,$FF0
  381. Colour 18,$F00
  382. Colour 19,$FF0
  383.    Colour 0,$445
  384.    Colour Back Colour(0)
  385.    Wait Vbl 
  386.    Cls Extension_0_803E Extension_0_4000 Extension_0_2000 Extension_0_1000 
  387.    Wait Vbl Extension_0_0800 
  388.    Limit Mouse Extension_0_1C00 
  389.    Dim Extension_0_0606 Extension_0_0100 Extension_0_02C0 Extension_0_72B7 : '                                                        '
  390.    For N=1 To 4 : ï¿½W Extension_0_4074 Extension_0_2006 Extension_0_3006 Extension_0_1A00 Extension_0_5200 Extension_0_027C Extension_0_FEA2 Extension_0_00BE Extension_0_00C0 Extension_0_01E2 ; Extension_0_025E N#
  391.    Dim A$(15)
  392.    ï¿½$ Extension_0_C074 Extension_0_E03E Extension_0_7000 Extension_0_2800 Extension_0_347C Extension_0_F5A2 Extension_0_0526 Extension_0_029B Extension_0_3160 Extension_0_2080 Extension_0_2050 Extension_0_3048 Extension_0_200C Extension_0_203E Extension_0_302B Extension_0_2022 Extension_0_202F Extension_0_3020 Amal Extension_0_3D20 Amal Extension_0_3000 
  393.    A$(1)= Extension_0_8026 Extension_0_C01B Extension_0_5020 Extension_0_7020 Extension_0_1820 Extension_0_3C20 Extension_0_2A20 Laced Extension_0_3EA0 I Bob Extension_0_21C0 Extension_0_31D0 Extension_0_2008 Extension_0_3D3C Extension_0_202A Extension_0_3103 $
  394.    A#(2)="                 0     ï¿½ ` " Extension_0_0F10 
  395.    N�$"0     0     1     1   =   ï¿½" Extension_0_4000 
  396.    Y$ Extension_0_302C Extension_0_2022 Extension_0_205F Extension_0_3120 Amal Amal Extension_0_3020 Amal Amal Extension_0_3020 Amal Extension_0_3D20 Amal Extension_0_3400 Extension_0_8000 
  397.    Q$
  398.    `�$%100001000000000001110 Extension_0_C078 Extension_0_9FA0 Extension_0_F027 Extension_0_981A Extension_0_7C21 Extension_0_4221 Extension_0_3F27 Extension_0_38A0 Extension_0_2BE0 Frame Play Extension_0_3610 Extension_0_20A8 Extension_0_205C Extension_0_3046 Extension_0_2037 Extension_0_3D28 Amplay Extension_0_3602 Extension_0_007F 
  399.    ï¿½$
  400.    A# Extension_0_0078 Illegal_Constant_003C Extension_0_00FF Extension_0_8008 Extension_0_C07C Amreg Extension_0_3026 Extension_0_B81B Extension_0_4520 Extension_0_4A20 Extension_0_3F20 Extension_0_27A0 Amos Lock Extension_0_2240 Extension_0_3110 Extension_0_2158 Extension_0_A05C Extension_0_707E Extension_0_C013 Extension_0_AD1E Extension_0_9825 Extension_0_5C03 Extension_0_1206 
  401.    G@T�# Extension_0_0078 Extension_0_006D Extension_0_006A Extension_0_FFAB Illegal_Constant_002DIllegal_Constant_0019 Extension_0_315F Amal Amal Extension_0_B020 Extension_0_E020 Illegal_Constant_0020 Extension_0_8020 Extension_0_E820 Extension_0_4420 Extension_0_4720 Extension_0_4720 Extension_0_21A0 Extension_0_BAE0 Extension_0_FA60 Extension_0_22B0 
  402.    ï¿½V�MIKM���O$
  403.    $
  404.    1$
  405.    A# Extension_0_008B Extension_0_803E Extension_0_C000 Extension_0_A00D Extension_0_507C Extension_0_E7A2 Extension_0_9426 Extension_0_CA1B Extension_0_9C20 Extension_0_D1A0 Extension_0_98E0 Extension_0_6540 Extension_0_7A10 Extension_0_B5D8 Extension_0_FA9C Extension_0_8EDE Extension_0_FFC3 Extension_0_9676 Extension_0_8CD9 Extension_0_6375 Extension_0_5768 Extension_0_499B Extension_0_07DA 
  406.    BIllegal_Constant_0019Illegal_Constant_0041# Extension_0_FFA0 Extension_0_0059 Illegal_Constant_001B Extension_0_3120 Extension_0_A020 Extension_0_E020 Extension_0_9120 Extension_0_9020 Extension_0_7820 Extension_0_6520 Extension_0_4E20 Extension_0_CB20 Extension_0_05A0 Extension_0_3560 Extension_0_AB80 Extension_0_EF61 Extension_0_97E8 Extension_0_D1AC 
  407.    7.O�Z�]��J#
  408.    Reserve Zone Extension_0_E29E Extension_0_B1D0 Extension_0_58AD Extension_0_EDD4 
  409.    ï¿½ï¿½ï¿½ï¿½D� ���#
  410.    BT    OU#
  411.    Set Zone Illegal_Constant_0035�>0
  412.    Set Zone Extension_0_DFF2 Set Stack Extension_0_1DB7 Extension_0_0B35 Extension_0_0DAD Extension_0_035A Extension_0_01E1 Extension_0_01AE Extension_0_01D7 Extension_0_01FD Extension_0_0070 Extension_0_009E Illegal_Constant_0035151 Extension_0_8000 
  413.    Set Zone Extension_0_403E Extension_0_E000 Extension_0_B003 Extension_0_D85C Extension_0_243E Extension_0_3200 Movon Extension_0_07DC Extension_0_82FE Extension_0_46E0 Extension_0_E3FB Extension_0_B0DC Extension_0_D842 Extension_0_3416 Extension_0_1AFF Extension_0_1557 Extension_0_05BC Extension_0_02C3 Extension_0_0177 Extension_0_0170 
  414.    Set Zone Extension_0_0056 )%10101110000000000110100 ?0J��F?AP�H�L��1��ʍHE{��    ï¿½ 4�N����[�1츺��<��퓻���HO���
  415. P/�5Z���^��0��ZJ�U�*7�һ���JÔ§ZӂNT�� ï¿½ï¿½NSߘ�I���'F��S���^ƞ���B�-T�EV JBE�����J�_����;T�?M
  416. �36����[��M/�#
  417.    Set Zone Extension_0_657B Extension_0_F1E3 Extension_0_09D5 Extension_0_0C34 Extension_0_0212 Extension_0_816E Extension_0_C104 Extension_0_A099 Extension_0_F05B Extension_0_B831 Extension_0_ECB8 Extension_0_BA9F Extension_0_ED3C Extension_0_BB87 Extension_0_ED93 Extension_0_BBBC Extension_0_EEEE Extension_0_BB68 Extension_0_6F91 Extension_0_FADA 
  418.    Ink Extension_0_2F95 Extension_0_355A Extension_0_17BA Extension_0_9DF6 Extension_0_5E85 Extension_0_E2AA Extension_0_30AB Extension_0_887A 
  419.    Text Extension_0_C455 Extension_0_A22A Extension_0_371E Extension_0_E8D2 Extension_0_BBFB Extension_0_EEE3 Extension_0_B71A Extension_0_4AD4 Extension_0_A77A Extension_0_D382 Extension_0_4E54 Extension_0_9FD4 Extension_0_20B9 Extension_0_8B4E Extension_0_73DF Extension_0_98B8 Extension_0_49FF Extension_0_D7F6 Extension_0_2746 Extension_0_8BF1 Extension_0_73A9 Extension_0_9C85 Extension_0_5EC6 Extension_0_9E9F Extension_0_AFB4 Extension_0_42C5 Extension_0_2D54 Extension_0_E98B Extension_0_4556 
  420.    Text Extension_0_6245 Extension_0_D3F4 Extension_0_9BEB Extension_0_7FA1 Extension_0_6A19 Extension_0_D316 Extension_0_5F9B Extension_0_FD18 Extension_0_CBC4 Extension_0_3B74 Extension_0_1DCC Extension_0_3F6D Extension_0_0AAA Extension_0_3336 Extension_0_FFA8 Extension_0_A7DB Extension_0_5BB7 Extension_0_954D Extension_0_2FFB Extension_0_0757 Extension_0_B1D7 Extension_0_AF9F Extension_0_50DA Extension_0_DE5A Extension_0_2179 Extension_0_CCE2 Extension_0_7CD9 Extension_0_0D4D Extension_0_A093 Extension_0_9FD8 
  421.    Text Extension_0_711A Extension_0_E7F2 Extension_0_9C4C Extension_0_C661 Extension_0_A70D Extension_0_F188 Extension_0_28E2 Extension_0_FC3E Extension_0_C6F7 Extension_0_3D0E Extension_0_57C4 Extension_0_F9B4 Extension_0_20D7 Extension_0_0C1B Extension_0_706D Extension_0_FCDB Extension_0_24A5 Point Extension_0_7E7C Extension_0_A6ED Extension_0_AD10 Extension_0_D483 Extension_0_5150 Extension_0_1B99 Extension_0_6E3E Extension_0_F897 Extension_0_A445 Extension_0_CB9C Extension_0_91C4 Extension_0_3862 
  422.    Text Extension_0_74CF Extension_0_CA29 Extension_0_DD18 Extension_0_B5C3 Extension_0_B962 Extension_0_E762 Extension_0_527C Extension_0_7B05 Extension_0_DBB3 Extension_0_1650 Extension_0_4E45 Extension_0_70BE Extension_0_FC26 Extension_0_3A5B Extension_0_D2A5 Extension_0_D903 Extension_0_CB3C Extension_0_9475 Extension_0_841B Extension_0_A726 Extension_0_D5B2 Extension_0_71E6 Extension_0_4497 Extension_0_B370 Extension_0_FA9D Extension_0_916C Extension_0_F376 
  423.    Text Extension_0_59AB Extension_0_74CD Extension_0_19A0 Extension_0_0CB1 Extension_0_8AA1 Extension_0_C5D4 Extension_0_6F5A Extension_0_532B Open Out X Text Extension_0_5E5F Extension_0_EE7F Extension_0_FEEA Extension_0_8E9A Extension_0_A30C Extension_0_80A5 Extension_0_DC43 Extension_0_3B58 Extension_0_1D26 Extension_0_6DEE Extension_0_7B2A Extension_0_26C0 Extension_0_65D3 Extension_0_6A1C Extension_0_E903 Extension_0_2EDA Extension_0_D407 Extension_0_BF4F Extension_0_4F6D Extension_0_1503 Extension_0_BA02 
  424.    Text Extension_0_7D21 Extension_0_9E80 Extension_0_CFC5 Extension_0_A7BC Extension_0_B3EE Extension_0_39E8 Extension_0_737A Extension_0_D9D6 Extension_0_ED6B Extension_0_968F Extension_0_9E35 Extension_0_8706 Extension_0_5731 Extension_0_1F7A Extension_0_28FA Extension_0_0A2D Extension_0_D004 Amal Freeze Extension_0_F0AC Extension_0_EDCF Extension_0_95D2 Extension_0_FC06 Extension_0_BBBE Extension_0_5DFE Extension_0_56BD Extension_0_8879 Extension_0_AAC9 Extension_0_0700 Extension_0_7F47 Extension_0_0783 Extension_0_35DF 
  425.    Pen Extension_0_BFDA Extension_0_C332 Extension_0_62F6 Extension_0_51A8 Extension_0_3B42 Extension_0_74CF Extension_0_9E19 Extension_0_C315 Extension_0_6187 
  426.    Locate Extension_0_537A Dev Check Extension_0_7C78 Extension_0_5A65 Extension_0_A533 Extension_0_BF8F Extension_0_78F6 Inverse Off 
  427.    Print Extension_0_B6D7 Extension_0_FD27 Extension_0_67F6 Extension_0_F646 Extension_0_C993 Extension_0_1C54 Extension_0_123B Extension_0_8B73 Extension_0_BCF8 Extension_0_115D Extension_0_5081 Extension_0_A893 
  428.    For Extension_0_E622 Extension_0_9514 Extension_0_4989 Extension_0_42C3 Extension_0_400C Extension_0_F8EF Extension_0_E4E7 Extension_0_D2FE Extension_0_297A Extension_0_6C81 Extension_0_CECA Extension_0_FFA5 Extension_0_94C1 Extension_0_5B66 Extension_0_6564 Extension_0_3264 Extension_0_7959 
  429.       Paste Icon Extension_0_C593 Extension_0_E249 Extension_0_5524 Extension_0_369E Extension_0_B415 Extension_0_3AC5 Extension_0_2B12 Extension_0_8EF3 Extension_0_C918 Extension_0_9D9C Extension_0_52FF Extension_0_A76A Extension_0_F5B4 
  430.    Next Extension_0_6AC8 Extension_0_5F2D Extension_0_3892 Extension_0_D9CF Extension_0_CE9C 
  431.    Ink Extension_0_EDF0 Extension_0_13E9 Extension_0_18F5 Extension_0_05CA Extension_0_07CB Extension_0_871B Extension_0_4092 Extension_0_60C7 
  432.    Text Extension_0_301A Extension_0_3872 Extension_0_8C4E Extension_0_CA41 Extension_0_E53D Extension_0_6E80 Extension_0_DB6C Extension_0_7C3C Extension_0_93F6 Extension_0_F93D Extension_0_5594 Extension_0_33E6 Extension_0_9F07 Extension_0_7892 Extension_0_4399 Extension_0_970B Extension_0_9A92 Extension_0_4C6F Scin Extension_0_9527 Extension_0_EABF Extension_0_E744 
  433. Screen Show Extension_0_15E2 
  434.    Do Extension_0_1FA7 
  435.       Repeat Extension_0_01DA 
  436.          L�O����\�E�X���K ï¿½ï¿½�M)��I�{�'����US�W�I*$�O1�B���S�$
  437.       Until Extension_0_E845 Extension_0_B458 Extension_0_A486 Extension_0_0DBF Extension_0_6B20 Extension_0_B9EA Extension_0_05FE Extension_0_6D1A Extension_0_299E Extension_0_B549 Extension_0_CA7B 
  438.       Exit If Extension_0_7FB2 Extension_0_D355 Extension_0_73F3 Extension_0_A414 Extension_0_1317 Extension_0_77F1 Extension_0_492A Extension_0_2488 Extension_0_164F 
  439.       If Extension_0_1CE8 Extension_0_02D9 Extension_0_01AB Extension_0_73E5 Extension_0_008F Extension_0_8022 Extension_0_BFED Extension_0_6207 Extension_0_5D7E Extension_0_287E Extension_0_63A3 Extension_0_3A3F Extension_0_2301 Extension_0_9183 Extension_0_3A07 Extension_0_6467 Extension_0_BED1 Extension_0_C96B Extension_0_0EC3 Extension_0_3232 Extension_0_8961 Extension_0_BC6D Extension_0_A0C9 Extension_0_DC59 Extension_0_A7C2 Extension_0_A3EB Extension_0_39D9 Extension_0_9716 Extension_0_DDBE Extension_0_E794 Extension_0_F6C2 Extension_0_8957 Extension_0_CCA7 Extension_0_E3FC Extension_0_83AD Extension_0_889F Extension_0_CCC8 Extension_0_9112 Extension_0_933F Amos Unlock Extension_0_DDB1 Extension_0_0A45 Extension_0_790E Extension_0_2B98 Extension_0_AE5E Extension_0_5F26 
  440.       Paste Icon Extension_0_A7E7 Extension_0_F276 Extension_0_7924 Extension_0_349B Extension_0_5583 Extension_0_DDFD Extension_0_996D Extension_0_90D7 Extension_0_23DE Extension_0_3FCE Extension_0_6915 Extension_0_B952 Extension_0_DBBA Extension_0_76FD Extension_0_3B76 Extension_0_27B3 Extension_0_124F Extension_0_8B38 Extension_0_4FB2 Extension_0_21DF Extension_0_10EB Extension_0_09D2 Extension_0_7C8C Extension_0_8250 Extension_0_4314 Extension_0_5C78 Extension_0_D2C4 Extension_0_7558 Extension_0_8C6D Extension_0_CE09 
  441.       If Extension_0_9285 Extension_0_B601 Extension_0_2661 Extension_0_DCAB Extension_0_2689 Extension_0_6C8A Extension_0_3246 Extension_0_9966 Extension_0_4492 
  442.           ï¿½S�*ٗξ�D��� �Y{��C�ږ�#
  443.       End If Extension_0_F7E2 
  444.       If Extension_0_BDA1 Extension_0_1D43 Extension_0_F1DA Extension_0_9691 # Extension_0_7DD3 Extension_0_B13F Extension_0_5888 Extension_0_2CCD 
  445.          D�A�O���JK$�5� ��C���M��4����KL$���
  446.  
  447.  
  448.       End If Extension_0_359E 
  449.       If Extension_0_CEFD Extension_0_986D Extension_0_B1D7 Extension_0_34DE Extension_0_D310 Extension_0_97C9 Extension_0_4B6C Extension_0_24B9 Extension_0_95CF 
  450.          ï¿½O��������X��<� ��A_X��XK��7M��X�
  451.  
  452. #
  453.       End If Extension_0_3CFB 
  454.       If Extension_0_4114 Extension_0_5F78 Extension_0_DDC4 Extension_0_0558 Extension_0_4BB3 Extension_0_DE37 Extension_0_6D05 Extension_0_B387 Extension_0_58FE 
  455.          ï¿½+�X�GE�����#�I��O��WVL��P�N�N��WI��B��>K�
  456. #
  457.       End If Extension_0_D323 
  458.       If Extension_0_BC4F Extension_0_DBE7 Extension_0_7756 Extension_0_4CC8 Extension_0_1B30 Extension_0_16E4 Extension_0_70AE Extension_0_4EA7 Extension_0_4EC6 Extension_0_10A6 Extension_0_7749 Extension_0_CCF0 Extension_0_62ED Extension_0_B33E Extension_0_4B8A 
  459.          6^^��Y ï¿½ï¿½ï¿½H:J�����F���2�]�ڶ��[*%����J���;    ZR�ٍ�Q��Y�~�Є
  460. #
  461.       End If Extension_0_B6F7 
  462.       If Extension_0_25BC Extension_0_92CF Extension_0_DB6A Extension_0_96FA Extension_0_F23B Extension_0_095A Extension_0_7211 Extension_0_CDD9 Extension_0_8D91 Extension_0_71EE Extension_0_F659 Extension_0_8C1A Extension_0_7E12 Extension_0_A105 Extension_0_D084 
  463.          ï¿½_    M/O�<P��^EW���AD��ɋ#X�Ú¬I
  464. X��UN�+�Q��B�V!ܑ�ی<�K{ $���6N/��$I$���
  465. ��O
  466. �ݞ�I�{�E�V#
  467.       End If Extension_0_AC49 
  468.       Locate Extension_0_EAD9 Extension_0_7516 Extension_0_4EB6 Extension_0_2B18 Extension_0_15DC Extension_0_1F51 Extension_0_83AD Extension_0_42BC 
  469.       Print Extension_0_21DC Extension_0_91E7 Extension_0_DB8C Extension_0_3CED Extension_0_924B Extension_0_7B0C Extension_0_249F Extension_0_B6C7 Extension_0_364E Extension_0_2F90 Extension_0_BE24 Extension_0_6924 
  470.    Loop Extension_0_B492 
  471.    Screen Hide Extension_0_CE4F 
  472.    Screen Close Extension_0_A51A Extension_0_DD9E Extension_0_FF49 Extension_0_CD7B 
  473. End Proc Extension_0_65D2 
  474. Procedure PART9
  475.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  476.    Reserve Zone 1
  477.    Curs Off : Flash Off 
  478.    Get Icon Palette 
  479.    Colour 17,$FF0
  480.    Colour 18,$F00
  481.    Colour 19,$FF0
  482.    Colour 0,$445
  483.    Colour Back Colour(0)
  484.    Wait Vbl 
  485.    Limit Mouse 
  486.    Pen 1 : Paper 0
  487.    Cls 0
  488.    Locate ,5
  489.    Centre "So there you have it!" : Print : Print 
  490.    Centre "Start collecting those empty" : Print : Print 
  491.    Centre "toilet rolls, yoghurt pots and" : Print : Print 
  492.    Centre "several good pieces of string..." : Print : Print 
  493.    Centre "and next time we can start to" : Print : Print 
  494.    Centre "build our own computer!"
  495.    Pen 7 : Paper 1
  496.    Locate 18,23
  497.    Print Border$(Zone$("BYE!",1),2)
  498.    Screen Show 
  499.    Repeat 
  500.       MZ=Mouse Zone
  501.    Until Mouse Click and MZ=1
  502. End Proc
  503. Procedure PART8
  504.    Screen Open 0,320,200,8,Lowres : Screen Hide 
  505.    Double Buffer 
  506.    Reserve Zone 2
  507.    Curs Off : Flash Off 
  508.    Colour 0,$445
  509.    Colour Back Colour(0)
  510.    Wait Vbl 
  511.    Limit Mouse 
  512.    Cls 0
  513.    Get Icon Palette 
  514. Colour 17,$FF0
  515. Colour 18,$F00
  516. Colour 19 Extension_0_805C Extension_0_4036 Extension_0_2000 Extension_0_1FF0 Extension_0_1800 
  517.    Colour Extension_0_043E Extension_0_0200 Extension_0_0300 Extension_0_03DC Extension_0_03F6 Illegal_Constant_0020 Extension_0_0455 $
  518.    Paste Icon Illegal_Constant_003A#Illegal_Constant_003F#Illegal_Constant_003F#
  519.    Paste Icon Illegal_Constant_003F#Illegal_Constant_003F Extension_0_803E Extension_0_C000 Extension_0_A007 Extension_0_D000 
  520.    Paste Icon Extension_0_E83E Extension_0_9C00 Extension_0_D6A8 Extension_0_ED5C Extension_0_9EBE Extension_0_C9C0 Extension_0_ECA4 Extension_0_9DEC Extension_0_CB66 Extension_0_EF94 Extension_0_92D1 Extension_0_4B25 
  521.    Paste Icon Extension_0_2D91 Extension_0_324E Extension_0_39C5 Extension_0_04EB Extension_0_05C8 Extension_0_0165 Extension_0_01AD Extension_0_0182 #
  522.    Ink Illegal_Constant_003D�9�#
  523.    Dim Extension_0_FA06 Extension_0_5D00 Extension_0_EDC2 Extension_0_B2C0 Extension_0_2D14 Extension_0_B7CE Extension_0_FD78 Extension_0_5F70 Extension_0_F1C2 Extension_0_D8A7 
  524.    Dim Extension_0_2FD8 Extension_0_BA3F Extension_0_BD6F Extension_0_D28F Extension_0_72BE Extension_0_D999 Cup$ Extension_0_0E6D Extension_0_1B61 Extension_0_029F 
  525.    Dim Asc Extension_0_03EB Extension_0_02EC Extension_0_6329 Extension_0_0059 Illegal_Constant_0023�J�>X$
  526.    Text Extension_0_B03E Extension_0_7800 Extension_0_9405 Extension_0_5A5C Extension_0_E53E Extension_0_D380 Extension_0_B94A Extension_0_75BC Extension_0_EBD6 Extension_0_5F1A Extension_0_A8F3 Extension_0_A296 Extension_0_CD82 Extension_0_D751 Extension_0_CFC5 Extension_0_1DA1 Extension_0_CA81 Extension_0_A9F7 Screen To Front Extension_0_550C Extension_0_72FF Extension_0_7632 Extension_0_64DA Extension_0_6C16 Extension_0_628E Extension_0_689B Extension_0_6511 ï¿½@@`$
  527.    Text Extension_0_8040 Extension_0_400D Extension_0_6000 Extension_0_D05F Extension_0_583E Extension_0_7C00 Extension_0_8E14 Extension_0_455C Extension_0_E2A6 Extension_0_B161 Extension_0_2ECF Edit Extension_0_FC49 Extension_0_2959 Extension_0_86F9 Extension_0_92D5 Extension_0_0182 Extension_0_1CD6 Extension_0_B848 Extension_0_D284 Extension_0_D7F4 Extension_0_89FE Extension_0_68C2 Extension_0_0A96 Extension_0_2B2F Extension_0_64D0 Extension_0_694A Extension_0_015F 
  528.    Text Extension_0_00CC Extension_0_00FB Illegal_Constant_0031Illegal_Constant_004AIllegal_Constant_0041`&%�A:E�T^ I�X��>�κV�K��^JF��ɧ3��;� J��+C�Q��M�U�S#
  529.    Text Extension_0_04E5 Extension_0_87E4 Extension_0_7F2B Extension_0_63B5 Extension_0_71F3 Extension_0_F86D Extension_0_8455 Extension_0_C653 Extension_0_A122 Extension_0_D1A7 Extension_0_E9F4 Extension_0_E411 Extension_0_0905 Extension_0_5D08 Extension_0_D0FF Extension_0_9CAA Extension_0_BF17 Extension_0_CA51 Extension_0_698F Extension_0_4C7D Extension_0_D66F Extension_0_8BDD Extension_0_92CA Extension_0_76BC Extension_0_C98A Extension_0_54A5 and Extension_0_7C2E Extension_0_C48A Extension_0_B6FF 
  530. Screen Show Extension_0_D9A2 
  531.    Do Extension_0_1268 
  532.       Pen Extension_0_0912 Extension_0_838A Extension_0_C646 Extension_0_A732 Extension_0_CC6D Extension_0_2875 Extension_0_9C64 Extension_0_CBF2 Extension_0_1D19 
  533.       Restore Extension_0_B287 
  534.       For Extension_0_6465 Extension_0_7E42 Extension_0_FB18 Extension_0_2A7C Extension_0_1DE8 Extension_0_3351 Extension_0_18B2 Extension_0_15DE Extension_0_8AF8 Extension_0_4D30 Extension_0_EE8B Extension_0_3F40 Extension_0_68EA Extension_0_7CF7 Extension_0_6665 Extension_0_7157 Extension_0_0C87 Extension_0_CD36 Extension_0_AA65 Extension_0_3342 Extension_0_19F8 Extension_0_F574 Extension_0_C69A Extension_0_D8D7 Extension_0_B6D9 Extension_0_D8F5 Extension_0_8CAE Extension_0_5221 Extension_0_99EF Extension_0_5C9B Extension_0_9807 Extension_0_A563 Extension_0_B9E6 Extension_0_D54F Extension_0_3AB7 Extension_0_AD31 Extension_0_37AB Extension_0_7CA0 Extension_0_F148 Extension_0_0915 Extension_0_859B Extension_0_F3B5 Extension_0_210D Extension_0_907B Extension_0_D8CB Extension_0_DE7E Extension_0_5632 Extension_0_094F Bin$ Extension_0_05D4 Extension_0_0121 Extension_0_E1B1 Extension_0_C035 Extension_0_DF7F Extension_0_7015 Extension_0_4819 Extension_0_D404 Extension_0_DE5A Extension_0_3945 Extension_0_7486 Extension_0_0E52 Extension_0_86E0 Extension_0_1390 Extension_0_62C8 
  535.       Gosub Extension_0_90BC Extension_0_A694 Extension_0_622F Extension_0_F799 Extension_0_BC98 Extension_0_C08D Extension_0_F643 
  536.       Text Extension_0_AAD8 Extension_0_7FF7 Extension_0_164D Extension_0_1D70 Extension_0_07A8 Extension_0_0359 Extension_0_0124 Extension_0_8103 Extension_0_C048 Extension_0_E3CD Extension_0_4069 Extension_0_DD67 Extension_0_B73A Extension_0_073F Extension_0_BD73 Extension_0_F6E3 Extension_0_96B3 Extension_0_3E4A Extension_0_506A Extension_0_D1D6 Extension_0_EAE2 Extension_0_8888 Extension_0_BF33 
  537.       ��M��
  538.       ï¿½B���N�J$
  539.       ï¿½ï¿½Ð®30<����H-�VM�Ҝ5#
  540.       <��A��>=3EY@'P���+<L5�>�`_P1��|�Z05���@
  541.  
  542.       For Extension_0_144C Extension_0_0E35 Extension_0_011E Extension_0_EC99 Extension_0_3EEF Extension_0_605F Extension_0_5031 Extension_0_A8E8 Extension_0_7CEB Extension_0_5A30 Extension_0_3505 Extension_0_FA87 Extension_0_9740 
  543.          U����|�}�.�ܻ��Z�PC]�[PX�<)0{E߆~G ï¿½ï¿½ï¿½4H
  544. N�~?�V�,�%
  545. ���YW��0?/��*}�V��C_��&���]�$
  546.          Dec Extension_0_D414 Extension_0_7E3F Extension_0_AF1C Extension_0_5686 Extension_0_2CC1 
  547.          If Extension_0_7977 Extension_0_A3A9 Extension_0_303F Extension_0_0D2F Extension_0_B486 Extension_0_2A7D Extension_0_9576 Extension_0_B9B2 Extension_0_435F Extension_0_97D8 Extension_0_26F4 Extension_0_9FBF Extension_0_5DB2 Extension_0_9C26 Extension_0_D1B1 Extension_0_9BDC Extension_0_DF2F Extension_0_F8EC Extension_0_9749 Extension_0_89D3 Extension_0_C558 Extension_0_66EB Extension_0_B57D Extension_0_0679 Extension_0_3C41 Extension_0_5545 Extension_0_5D58 Extension_0_BB88 Extension_0_6745 Extension_0_1937 Extension_0_F7CE Extension_0_467A Extension_0_A2CC Extension_0_4F9A 
  548.       Next Extension_0_98D1 Extension_0_7468 Extension_0_386F Extension_0_FD2E Extension_0_798D 
  549.       Locate Extension_0_24F9 Extension_0_12A6 Extension_0_7AC8 Extension_0_05C7 Extension_0_85C2 Extension_0_432E Extension_0_236B Ink 
  550.       Print Extension_0_886D Extension_0_3C0E Extension_0_240B Extension_0_7635 Extension_0_88EA Extension_0_4C65 Extension_0_A263 Extension_0_710D Extension_0_8898 Extension_0_DC28 Extension_0_6A1E 
  551.       For Extension_0_5D9E Extension_0_B3CE Extension_0_D8A6 Extension_0_02F1 Extension_0_4D7B Extension_0_4753 Extension_0_A5AF Extension_0_527E Extension_0_AFBB Extension_0_D4CC Extension_0_6A7B Extension_0_B365 Extension_0_DAE4 Extension_0_1495 Extension_0_F59A Extension_0_FB56 Extension_0_7D98 Extension_0_BFE7 Extension_0_DB50 Extension_0_ED71 Extension_0_79DA Extension_0_3F6D Extension_0_7AAE Extension_0_0D3D Extension_0_8BA1 Extension_0_474C Extension_0_A4F9 Extension_0_3F7D Extension_0_A805 Extension_0_D459 Extension_0_6EB3 Extension_0_B938 Extension_0_DD8F Extension_0_7557 Extension_0_3D63 Extension_0_F550 Extension_0_4668 
  552.       Gosub Extension_0_AECC Extension_0_AF7C Extension_0_BED7 Extension_0_3517 Extension_0_4301 Extension_0_C92E Extension_0_5F8D 
  553.        Extension_37_3382 Extension_0_1EEF Extension_0_079B Extension_0_83BA Extension_0_412E 
  554.       Text Extension_0_2141 Ink Extension_0_886E Extension_0_C44A Extension_0_E235 Extension_0_F304 Extension_0_0BCF Extension_0_8F9F Extension_0_4206 Extension_0_A308 Extension_0_11E6 Extension_0_5730 Extension_0_FC47 Extension_0_2C31 Extension_0_556C Extension_0_F8FF Extension_0_9BB5 Extension_0_4C9E Extension_0_FEB4 Extension_0_281A Extension_0_8283 Extension_0_5055 Extension_0_A92C 
  555.       ï¿½���_#
  556.       ï¿½ï¿½ï¿½:�W$
  557.       @���    ï¿½ï¿½ï¿½?C7҉��L��P#
  558.       UBCO��S���>GD^�RI�<LW2�8��`|`L���JPB���7��K�
  559.  
  560.       For Extension_0_32A0 Extension_0_38C3 Extension_0_069B Extension_0_607C Extension_0_604C Extension_0_C0A1 Extension_0_A04A Extension_0_5062 Extension_0_A886 Extension_0_FC37 Extension_0_E605 Extension_0_9505 Extension_0_4B83 
  561.              0$�2Y4&��[ޘ�<��K��~FY.V�:'�B–�ߟ��W �����
  562. N!�0�:I��%
  563. ��G0����".�|؂/�X!�1�ŝ_��X�IY��)M�!��&��$�2~����B����2L�FB`W7�FD��Q��@�����R��1S��S
  564. X����BCQ+��[�0#$
  565.          Dec Extension_0_21A4 Extension_0_30D5 Extension_0_3A69 Extension_0_D017 Extension_0_FE06 
  566.          If Extension_0_3089 Extension_0_B9C6 Extension_0_FE22 Extension_0_2E10 Extension_0_F17C Extension_0_D882 Extension_0_2FCC Extension_0_7821 Extension_0_F131 Extension_0_CAC5 Extension_0_9D5F Extension_0_91C1 Extension_0_58DF Extension_0_4979 Extension_0_10AB Extension_0_8929 Extension_0_4D8C Extension_0_2185 Extension_0_C326 Extension_0_C8E5 Extension_0_24BD Extension_0_327E Extension_0_B9F6 Extension_0_A99B Extension_0_62B8 Extension_0_EC80 Extension_0_1895 Extension_0_05F9 Extension_0_326C Extension_0_8146 Extension_0_4207 Extension_0_6057 Extension_0_1037 Extension_0_9810 
  567.       Next Extension_0_440E Extension_0_E3EE Extension_0_5102 Extension_0_1683 Extension_0_D440 
  568.       Gosub Extension_0_DDF8 Extension_0_CBCA Extension_0_7288 Extension_0_AF31 Extension_0_73C5 Extension_0_F373 
  569.       Locate Extension_0_8996 Extension_0_BCB4 Extension_0_6243 Extension_0_712B Extension_0_1984 Extension_0_9C5B Extension_0_DA30 Extension_0_2317 
  570.       Print Extension_0_32BC Extension_0_0B69 Extension_0_866E Extension_0_A0E1 Extension_0_A34C Extension_0_D392 Extension_0_B8F9 Extension_0_D45E Extension_0_0A12 Extension_0_B57D Extension_0_CA85 
  571.       For Extension_0_6D66 Extension_0_F6A2 Extension_0_49A8 Extension_0_88DC Extension_0_CC9C Extension_0_EB93 Extension_0_374F Extension_0_EDAE Extension_0_B663 Extension_0_CEA8 Extension_0_A5F5 Extension_0_AFA6 Extension_0_5BA4 Extension_0_2361 Extension_0_5BF2 Extension_0_753A Extension_0_769E Extension_0_8F1E Extension_0_CFD9 Extension_0_22D4 Extension_0_1159 Extension_0_9B1E Extension_0_3456 Extension_0_669B Extension_0_9110 Extension_0_48A7 Extension_0_E1FD Extension_0_5C63 Extension_0_296E Extension_0_9DFD Extension_0_4791 Extension_0_E129 Extension_0_B276 Extension_0_692A Extension_0_FE64 Extension_0_543E Extension_0_A529 
  572.       Text Extension_0_53AB Extension_0_EACB Extension_0_2CE9 Extension_0_AE8A Extension_0_DD57 Extension_0_2AAD Extension_0_9FBA Extension_0_4930 Extension_0_FFF4 Extension_0_B2F3 Extension_0_470C Extension_0_57B6 Extension_0_DE6D Extension_0_1B0D Extension_0_05BD Extension_0_315F Extension_0_294C Extension_0_247E Extension_0_27CB Extension_0_A134 Extension_0_E1AA Extension_0_40DD Extension_0_7063 
  573.       For Extension_0_FC1F Extension_0_BE17 Extension_0_630F Extension_0_9E80 Extension_0_4762 Extension_0_5CDE Extension_0_6E70 Extension_0_7709 Extension_0_4410 Extension_0_E2FC Extension_0_3163 Extension_0_9994 Extension_0_CC48 
  574.          If Extension_0_AF34 Extension_0_5987 Extension_0_EE86 Extension_0_D6E2 Extension_0_27A7 Cup$ Extension_0_8E5E Extension_0_472A Extension_0_089D Extension_0_88B5 Extension_0_FF52 Extension_0_845E Extension_0_C6EA Extension_0_2768 Extension_0_6F28 Extension_0_C9DB Extension_0_AC62 Extension_0_EF12 Extension_0_2919 
  575.             If Extension_0_D6C9 Extension_0_2D20 Extension_0_9DD2 Extension_0_B2B8 Extension_0_AC90 Extension_0_DEB4 Extension_0_3779 Extension_0_996C Extension_0_345A Extension_0_E593 Extension_0_4C30 Extension_0_E8DD Extension_0_BCA5 Extension_0_67F2 Extension_0_9D2B 
  576.                Q��E-G�U~AM #~H�5?���XC
  577.                ���F'2�P58|�0P'��X���ӑ��#
  578.             Else Extension_0_D8C6 
  579.                ï¿½(&�5@��F���Ȝ{B��Њ�;�    �4{P�K��!�`�0�Q𕦛����D��
  580. ڹ�
  581. ��(�P�/��[�P%�3K��)�E���    L \2������CZPQ�    Ê’%�_`8�Cʾ�;����#
  582.             End If Extension_0_3BFD 
  583.             Gosub Extension_0_347B Extension_0_70F4 Extension_0_4B19 Extension_0_02E8 Extension_0_F621 Extension_0_BC60 Extension_0_A430 
  584.             Gosub Extension_0_71F0 Extension_0_95A6 Extension_0_9B8E Extension_0_A4B0 Extension_0_8B44 Extension_0_B2B0 
  585.          End If Extension_0_B9F8 
  586.          If Extension_0_B270 Extension_0_E91F Extension_0_2FDF Extension_0_CE5B Extension_0_F550 Extension_0_2588 Extension_0_334B Extension_0_B9E5 Extension_0_29F1 Extension_0_65D7 Extension_0_EED6 Extension_0_094C Extension_0_0C5C Extension_0_32E5 Extension_0_8113 
  587.             If Extension_0_A0FB Extension_0_F063 Extension_0_5A50 Extension_0_0819 Extension_0_1A71 Extension_0_8D09 Extension_0_CA92 Array Extension_0_5F60 Extension_0_38CC Extension_0_43CA Extension_0_BE12 Extension_0_E13B Extension_0_A0B7 Extension_0_C9FA 
  588.                ï¿½9���E�2Ø°}X���\"�3U
  589. J�]
  590.                ÄŠQ��ET#
  591.             Else Extension_0_EB35 
  592.                ï¿½���￝���������E��3T� J
  593. � ]
  594.  
  595.             End If Extension_0_0B6A 
  596.          End If Extension_0_0C5D 
  597.          ï¿½# Extension_0_4089 Extension_0_A065 Extension_0_7000 Extension_0_2A19 Extension_0_5205 Extension_0_8A73 Extension_0_34A2 Extension_0_E5A6 Extension_0_1741 Extension_0_B8A0 Extension_0_DC50 
  598.          Read Extension_0_623E Extension_0_D304 Extension_0_F9B6 Extension_0_B7C5 Extension_0_E643 Extension_0_5D30 Extension_0_DF8F Extension_0_FECD Extension_0_17A3 Extension_0_D6D0 
  599.          If Extension_0_ED5A Extension_0_96E6 Extension_0_46BD Extension_0_41AA Extension_0_111F Fsel$ Extension_0_1C4F Extension_0_FCE5 Extension_0_EF13 Extension_0_40F6 Extension_0_D85F Extension_0_9045 Extension_0_5813 Extension_0_0D19 Extension_0_1251 Extension_0_991D Extension_0_2274 Extension_0_E6C0 Extension_0_9741 Extension_0_7D90 Extension_0_0CDC Extension_0_823A Extension_0_4106 Extension_0_E289 Extension_0_88C5 Extension_0_E843 Extension_0_6C30 Extension_0_AE0F Extension_0_EF0D Extension_0_0483 Extension_0_B54C Extension_0_EDF4 Extension_0_FD8A Extension_0_77E8 
  600.          Gosub Extension_0_4BE4 Extension_0_D370 Extension_0_156B Extension_0_6B1F Extension_0_623A Extension_0_0FE5 
  601.          Gosub Extension_0_810B Extension_0_BF6C Extension_0_26FD Extension_0_F10E Extension_0_2D7C Extension_0_4819 Extension_0_1205 
  602.       Next Extension_0_8B09 Extension_0_CD92 Extension_0_E040 Extension_0_9F20 Extension_0_F890 
  603.       Locate Extension_0_0466 Extension_0_823C Extension_0_4137 Extension_0_A1D5 Extension_0_D1FB Extension_0_F81F Extension_0_7C22 Extension_0_BE39 
  604.       If Extension_0_6A85 Extension_0_BACC Extension_0_DCE2 Extension_0_8C50 Extension_0_769C Extension_0_3CC2 Extension_0_1EAA Extension_0_0F6F Tan Extension_0_C3FF Extension_0_1EC3 Extension_0_8F12 Extension_0_F18A Extension_0_E1FD 
  605.          Print Extension_0_7045 Extension_0_B80B Extension_0_934F Extension_0_B757 Extension_0_3D43 Extension_0_73D7 Return Extension_0_5A4E Extension_0_7FF1 Extension_0_6831 Extension_0_E21C Sort Extension_0_D3FE Extension_0_B5B7 Extension_0_C91F Extension_0_6C36 
  606.           Extension_171_AA29 Extension_0_5BBD Extension_0_ABC0 Extension_0_DFB4 Extension_0_E504 Extension_0_1F76 Font$ Extension_0_0CAA Extension_0_0EE4 Extension_0_7F7E Illegal_Constant_0033 Extension_0_02D4 Extension_0_810F Extension_0_C008 Extension_0_E03B Extension_0_7006 Extension_0_C856 Extension_0_FE9F Extension_0_FE3F Extension_0_0901 Get Rom Fonts Extension_0_0240 
  607.       Else Extension_0_0090 
  608.          Print Extension_0_007E Extension_0_8034 Extension_0_0158 Extension_0_D37E Extension_0_B577 Extension_0_E21F Extension_0_5C62 Extension_0_DA01 
  609.          For Extension_0_0A87 Extension_0_8AD3 Extension_0_C4A1 Extension_0_CF51 Extension_0_2F4B Extension_0_79C1 Extension_0_2C2A Extension_0_0A2F Extension_0_059E Extension_0_03B3 Extension_0_01DD Extension_0_80AE Extension_0_C326 Extension_0_1F92 Set Pattern Extension_0_99FA Extension_0_DC0C Extension_0_FE5B Extension_0_9574 Extension_0_D881 Extension_0_FC40 Extension_0_EC62 Extension_0_FF10 Extension_0_5FEC Extension_0_A2DA Extension_0_7334 Extension_0_ABB1 Extension_0_DA79 Extension_0_AEA1 Extension_0_5373 Extension_0_6AC2 Extension_0_3783 Extension_0_35B9 Extension_0_8DC4 Extension_0_CFB9 Extension_0_4D5D Extension_0_93EB 
  610.          Print Extension_0_4BD8 Extension_0_2BA9 Extension_0_D249 Extension_0_0A8E Extension_0_1C9B Extension_0_07DD Extension_0_8123 Extension_0_A183 Extension_0_1FB9 Extension_0_902B Extension_0_48DF Extension_0_AE09 Extension_0_9F3F Extension_0_6703 
  611.       End If Extension_0_D586 
  612.       Pen Extension_0_EA79 Extension_0_9F20 Extension_0_4997 Extension_0_AC8C Extension_0_2E20 Extension_0_3B68 Extension_0_B4B9 Extension_0_C67C Extension_0_A4DB 
  613.       Locate Extension_0_36AA Extension_0_A756 Extension_0_B7A7 Extension_0_A793 Extension_0_F720 Extension_0_9695 Extension_0_D55C Extension_0_2DFC 
  614.       Print Extension_0_B46E Extension_0_469D Extension_0_E45B Extension_0_122D Extension_0_0BF3 Extension_0_04AF Extension_0_C752 Extension_0_A24C Extension_0_CE94 Extension_0_6F93 Extension_0_17DA Extension_0_8BFE Extension_0_C608 Extension_0_2379 Extension_0_B2D9 Extension_0_F979 Extension_0_5DA0 Extension_0_6E52 Extension_0_9984 Extension_0_CC8C 
  615.       Locate Extension_0_E660 Extension_0_D725 Extension_0_29B8 Extension_0_BDA4 Extension_0_BDDA Extension_0_FB5E Extension_0_95AE Extension_0_494D 
  616.       Print Extension_0_7E43 Extension_0_D386 Extension_0_E875 Extension_0_AF80 Extension_0_FAD0 Extension_0_9B27 Extension_0_B8D9 Extension_0_3D04 Extension_0_1A1F Extension_0_7C4C Extension_0_848B Extension_0_C1EA Extension_0_2FEA Extension_0_30E9 Extension_0_38AA Extension_0_84BB Extension_0_C20C Extension_0_A107 Extension_0_7F86 Extension_0_E83A Extension_0_5C23 
  617.       Repeat Extension_0_9318 
  618.          ï¿½ï¿½ï¿½S�{J�\3EL�H�C Җ�:BTQMۗ\8 �Z� ��ߛ�\ñ·©©U��UZ��V�D��0EP"]�'�����2.�4�TH|SF�5T���]3
  619. �BF
  620. P鈪��"<�S$
  621.       Until Extension_0_3365 Extension_0_6CEA Extension_0_48CD Extension_0_1A63 Extension_0_0CD2 Extension_0_9611 Extension_0_B23A Extension_0_6274 Extension_0_516D Extension_0_DB97 Extension_0_5C38 
  622.       Cls Extension_0_7ADA View Extension_0_9B89 Extension_0_DF9B Extension_0_A15C Extension_0_F1B7 Extension_0_A9A9 Extension_0_7588 Extension_0_EA04 Extension_0_551B Extension_0_7A14 Extension_0_EDD1 Extension_0_569D Extension_0_64D0 Extension_0_F380 Extension_0_8930 Extension_0_4550 Extension_0_225D Extension_0_9327 Extension_0_FF92 
  623.       Exit If Extension_0_E734 Extension_0_C374 Extension_0_687C Extension_0_1E18 Extension_0_1611 Extension_0_5366 Extension_0_E9A4 Extension_0_3554 Extension_0_8E99 
  624.    Loop Extension_0_5D33 
  625.    Screen Hide Extension_0_6266 
  626.    Screen Close Extension_0_70E9 Extension_0_88AA Extension_0_CDF7 Extension_0_221A 
  627.    Pop Proc Extension_0_9373 
  628.    ï¿½N.~    ï¿½ï¿½D
  629. P7+�މ!̩�FP�Y�J�F���
  630. :����_B����G��*��ث$˒'�O\�JNZY.�I>�!���ߤ;R�� 6�Q� W:
  631.    Ink Extension_0_371C Extension_0_2B91 Extension_0_1DDE Extension_0_8921 Extension_0_CCA9 Extension_0_9E46 Extension_0_70EC Extension_0_7993 
  632.    Text Extension_0_F446 Extension_0_A9E4 Extension_0_D40A Extension_0_3AC7 Extension_0_1AFA Extension_0_B6BE Extension_0_5F02 Extension_0_62B5 Extension_0_0EF9 Extension_0_8BAA Extension_0_47A9 Extension_0_822A Extension_0_BF89 Extension_0_D8AB Extension_0_24CB Extension_0_9227 Extension_0_B94F Extension_0_5C88 
  633.    Text Extension_0_6E7A Extension_0_792E Extension_0_FC49 Extension_0_3E95 Extension_0_211D Extension_0_9192 Extension_0_C9DF Extension_0_A43B Extension_0_52F4 Extension_0_E90B Extension_0_36DE Extension_0_71C2 Extension_0_0B57 Extension_0_8A8E Extension_0_4548 Extension_0_636E Extension_0_7FAA Extension_0_79B9 
  634.    Text Extension_0_FCEB Extension_0_BA37 Extension_0_DB82 Extension_0_A2D7 Extension_0_D170 Extension_0_29E3 Extension_0_1C28 Extension_0_0984 Extension_0_8312 Extension_0_428E Extension_0_6307 Extension_0_946D Extension_0_3825 Extension_0_2427 Extension_0_16FF Extension_0_0909 Extension_0_8CF3 Extension_0_C242 
  635.    Text Extension_0_A0D9 Extension_0_50F0 Extension_0_E890 Extension_0_3C30 Rdialog Extension_0_1309 Extension_0_0A11 Extension_0_9D1F Extension_0_C666 Extension_0_A0D0 Extension_0_F2DA Extension_0_5C54 Extension_0_944E Extension_0_FE31 Extension_0_A73E Extension_0_D181 Extension_0_58BF Extension_0_F4A0 
  636.    Ink Extension_0_B7EE Extension_0_AD18 Extension_0_DDBD Extension_0_DB12 Extension_0_B551 Extension_0_D752 Extension_0_BFD7 Extension_0_53D4 
  637.    Return Extension_0_796A 
  638.    F���A�
  639. P���UH:
  640.    Ink Extension_0_E094 Extension_0_B055 Extension_0_681C Extension_0_7448 Extension_0_8A24 Extension_0_471F Extension_0_6286 Extension_0_12C1 
  641.    Text Extension_0_999F Extension_0_3CF1 Extension_0_6F78 Extension_0_F741 Extension_0_A8A1 Extension_0_74DA Extension_0_6E52 Extension_0_5732 Extension_0_D98F Extension_0_5F5B Extension_0_7FE7 Extension_0_1B51 Extension_0_9BED Extension_0_DE8D Extension_0_BAA6 Extension_0_72B6 Extension_0_E9C6 Extension_0_D57F 
  642.    Text Extension_0_BEE8 Extension_0_CB5D Extension_0_AE4C Extension_0_F381 Extension_0_2A99 Extension_0_BD5E Extension_0_4A21 Extension_0_EF69 Extension_0_DD6D Extension_0_BABA Extension_0_752C Extension_0_9AB5 Extension_0_9F8F Extension_0_F6AA Extension_0_254A Extension_0_F2A5 Extension_0_99AE Extension_0_C4AB 
  643.    Text Extension_0_A24A Extension_0_F166 Extension_0_183C Extension_0_F417 Extension_0_1A1A Extension_0_8716 Extension_0_42C3 Extension_0_671B Extension_0_91E4 Extension_0_C831 Extension_0_AEBA Extension_0_8214 Extension_0_1B7E Extension_0_34B9 Extension_0_BFC2 Extension_0_4364 Extension_0_E1EC Extension_0_50D8 
  644.    Text Extension_0_689A Extension_0_94DE Extension_0_CE78 Extension_0_2B49 Extension_0_3645 Extension_0_BEC4 Extension_0_7DCE Extension_0_628F Extension_0_D32E Extension_0_E8BA Extension_0_D6BC Extension_0_DA1D Extension_0_BB43 Extension_0_FDB8 Extension_0_5F4D Extension_0_6FE7 Extension_0_D78C Extension_0_EBA8 
  645.    Ink Extension_0_156A Extension_0_8DEE Extension_0_47FC Extension_0_22E9 Extension_0_B3D5 Extension_0_FBAA Extension_0_9C3D Extension_0_51F5 
  646.    Return Extension_0_2B1B 
  647.    Data Extension_0_BEC1 Extension_0_FD62 Extension_0_6279 Extension_0_D184 Extension_0_E89A Extension_0_145E Extension_0_09B4 Extension_0_0D29 Extension_0_02B5 Extension_0_814C Extension_0_41CC Extension_0_20ED Extension_0_70C7 Extension_0_5815 Vrev Block Extension_0_3258 Extension_0_773C Extension_0_4483 Extension_0_A229 Extension_0_B13C Extension_0_E98E Extension_0_ECC8 Extension_0_1EE5 Extension_0_972A Extension_0_4BB7 Extension_0_22CF Extension_0_B18F Extension_0_C90D Extension_0_6C57 Extension_0_DEEF Extension_0_F985 Extension_0_94B5 
  648. End Proc Extension_0_59FD 
  649. Procedure GRAB
  650.    Repeat 
  651.       A$=""
  652.       Clear Key 
  653.       While A$=""
  654.          A$=Inkey$
  655.       Wend 
  656.       A=Asc(A$)
  657.    Until A>$2F and A<$40
  658.    A=Val(A$)
  659. End Proc[A]
  660. Procedure FAR[X,Y]
  661. Volume 15
  662.    For Z=1 To 2
  663.       Ink 7,0
  664.       Text X,Y,"Carry"
  665.       Bell 60
  666.       Wait 15
  667.       Ink 6,0
  668.       Text X,Y,"Carry"
  669.       Bell 80
  670.       Wait 15
  671.    Next Z
  672. End Proc